data segment
	result db 76,69,84,90,73,88,99,63,100,80
	s6 db 0
	s7 db 0
	s8 db 0
	s9 db 0
	s0 db 0
data ends

code segment
main proc far
	assume ds:data,cs:code
start:
	push ds
	sub ax,ax
	push ax

	mov ax,data
	mov ds,ax

	lea si,result
	mov cl,10
next:
	mov al,[si]
	cmp al,70
	jge greater7
	inc s6
	jmp loopnext
greater7:		
	cmp al,80
	jge greater8
	inc s7
	jmp loopnext
greater8:
	cmp al,90
	jge greater9
	inc s8
	jmp loopnext
greater9:
	cmp al,100
	je greater0
	inc s9
	jmp loopnext
greater0:
	inc s0
loopnext:
	inc si
	loop next
	ret
main endp
code ends
	end start
